Fix read of invalid integer values.

git-svn-id: http://gpsbabel.googlecode.com/svn/trunk@2641 f51c46e8-681c-474f-0cfe-069cfd0219fb

diff --git a/gpsbabel/win32/gui-2/options.pas b/gpsbabel/win32/gui-2/options.pas
index 1c30b98c5aea0cd5c4c65b9cd930fa85b5518294..788eb972338cfc47dc9ae6d12fe64b8e1f5a1238 100644 (file)
--- a/gpsbabel/win32/gui-2/options.pas
+++ b/gpsbabel/win32/gui-2/options.pas
@@ -767,6 +767,7 @@ var
   s, key, value: string;\r
   r: TRegistry;\r
   u: TUpDown;\r
+  v: Integer;\r
 begin\r
   r := TRegistry.Create;\r
   try\r
@@ -799,7 +800,12 @@ begin
         if (value <> '(default)') then\r
         begin\r
           if HasUpDown(TEdit(o.edit), u) then\r
-            u.Position := StrToInt(value)\r
+          begin\r
+            if (o.def <> nil) then\r
+              v := StrToIntDef(o.def, 0) else\r
+              v := 0;\r
+            u.Position := StrToIntDef(value, v);\r
+          end\r
           else\r
             SetStrProp(o.edit, 'Text', value);\r
         end;\r